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Quarterly Disk #4 


The fourth Quarterly Disk is now ready, containing all the source 
code from issues 10 through 12. The cost is only $15, and it will 
Save you a lot of typing and possible searching for typos. All 
previous Quarterly Disks are still available, at the same price, 


Renewing subscriptions 


The 4-digit number in the upper right corner of your mailing label 
is the expiration date of your subscription. The first two digits 
are the year, and the last two digits are the month of the last 
issue you have paid for. If it says "8109", this is your last 
issue. Unless, of course, I receive your renewal check for $12. 
If your label says 8111 or less, now is the time to renew! 


More about the Firmware Card in Slot 4 


Michael Sanders' DOS patch for using the Firmware card in slot 4 
is really nice. A lot of you have written or called about it, and 
I use it myself now. In fact, I have changed my HELLO programs to 
do the patch. All it takes is two POKEs: 


10 POKE 42424,192 : POKE 42432,193 


I like doing it this way a lot better than INITting a disk with a 
modified DOS. If you want to test for the presence of a card 
before patching, you can do it like this: 


10 FOR I = 768 TO 817: READ A: POKE I,A: NEXT : CALL 768 

20 DATA 173,192,192,162,2,189,0,224,221,44,3,208,16,202,16,245,1 
62,192,142,184,165,232,142,192,165,173,193,192,96,162,2,189, 
0,224,221,47,3,208,242,202,16,245,48,228,32,0,240,76,40,241 

30 TEXT : HOME : PRINT CHRS (4) "CATALOG" 


Field Input Routine for AppleSOft.....csceeeeeceeeeeeeBOD Potts 


Inputting strings to an Applesoft program is normally a simple 
task. What could be easier than “INPUT A$"? But, that method 
will not allow commas or colons. 


Another easy way is to use GET C$ for each character, and append 
them to a string using AS=AS$+CS. But, by the time you add the 
testing for each input character to find the end of input and 
other possible control characters, the routine can be terribly 
slow. Furthermore, it eats up string space like crazy; eventually 
Applesoft garbage collection starts, and the program dies for a 
while. Here is the kind of loop I. am talking about: 


10 AS="" 

20 GET C$ 

30 <perform various tests on C$> 
40 AS$S=A$+CS$:PRINT CS; 

50 GO TO 20 


As the string increases in length, the speed decreases 
dramatically. In fact, some characters may be lost if you are a 
fast typist. 


One way to correct this is to use a machine language routine to 
input each keystroke, test it, and build a string for the 
Applesoft program. Such a routine was printed in “Apple Assembly 
Line" issue #7 (April, 1981), pages 6-8. But that routine used 
the monitor's RDLINE subroutine to input the string. I needed a 
routine more adapted to inputting a series of fields, using the 
screen in a "fill-in-the-blanks" mode. 


Time II 


The most powerful, easiest to use, clock for your APPLE 


+ TIME IN HOURS, MINUTES AND SECONDS. ; —— 

* DATE WITH YEAR, MONTH, DATE, DAY OF WEEK AND i Mt ich 
LEAP YEAR. ie che) fue BN 

° FAST DATE AND TIME SETTING. 
* PROGRAM SELECTABLE 24 HOUR MILITARY FORMAT 
OR 12 HOUR WITH AM/PM FORM 

* +30 SECOND ADJUST. 

°DIP SWITCH SELECTAGLE INTERRUPTS PERMIT 
FOREGROUND/IBACKGROUND OPERATION OF TWO 
PROGRAMS SIMULTANEOUSLY 80 YOU CAN CALL UP 
SCHEOULES, TIME EVENTS, DATE LISTINGS, ANO 
OTHER PRINTOUTS. 


e INCLUDES 16 SECTOR DISK WITH OVER 25 CON- 


¢ CRYSTAL CONTROLLED FOR .0005% ACCURACY. TRIBUTED PROGRAMS SO YOU CAN PUT YOUR TIME I! 
*LATCHED INPUT AND OUTPUT PORTS FOR THE TO USE RIGHT AWAY. 
EASIEST PROGRAMMING IN BASIC. 
¢ ON BOARD BATTERY BACKUP POWER FOR OVER 4 * TWENTY-THREE PAGE OPERATING MANUAL 
MONTHS POWER OFF OPERATION (BATTERY INCLUDED, WITH MANY EXAMPLES OF PROGRAMS TO 
CHARGES WHEN APPLE |S ON). USE WITH YOUR APPLE IN ANY CONFIGURATION. 
ALL ORDERS SHIPPED SAME DAY MASTER CHARGE & VISA WELCOME 
SENO $129.00 CHECK OR MONEY ORDER 
(TEXAS RESIDENTS AOD 5% SALES TAX) — 
eee wey es onaane 214) 492-2027 
AZ2S.99 2xXG:NSEANG ie 
P.O. BOX 470301 7:00 AM - 11:00 PM 7 DAYS A WEEK 
DALLAS, TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 
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The following program was designed for use in the various branches 
of the Bank of Louisville. The Apple is used to calculate loans, 
print the installment notes, and to enter loan applications. A 
loan application involves filling in the blanks on several screens 
full of prompts. 


To use the input routine, you first position the cursor to the 
start of field using VTAB and HTAB; then set a field length using 
the SCALE= statement, and a field code using the ROT= statement. 
The actual call to the input routine is done with “&INPUT" and the 
name of your string. Here is an example for inputting a 
5-character field starting in column 10 of line 7: 


10 VTAB 7 : HTAB 10 : SCALE=5 : ROT = 0 : &INPUT AS 


The input routine allows skipping from field to field, either 
forward or backward through a form. Backspace and copy (right 
arrow) are supported. Filling up a field, or hitting RETURN 
within a field, finish that field and return the value to 
Applesoft. An EXIT CODE tells the Applesoft program whether a 
value was returned in the string or some other exit was chosen. 
You access the exit code with a PEEK(224). Here are the four exit 
codes and their meanings: 

EXIT CODE Field was filled or RETURN typed. 
ESCAPE was typed at beginning of field, 
CTRL-F was typed at beginning of field. 
Left Arrow (backspace) was typed 
at beginning of field. 


nu i 
WHE © 


If the exit code is zero, then the field data you typed is in your 
string. Otherwise, the string's value is not changed. Finishing 
a field by either filling it up or hitting RETURN puts the field 
data into your string, and I then advance to the next field on the 
form. I use an exit code of 3 (backspace at beginning of field) 
to mean that the Applesoft program should go back to the previous 
field on the current forn, 


How you use the exit codes of 1 and 2 is up to you. You might use 
an ESCAPE (exit code = 1) to abort the form-filling and return to 
a main menu. The ESCAPE is now only recognized if you are at the 
beginning of the field and the field code is non-zero. Of course, 
you could change that. You might use the control-F to mean you 
are finished with the current form. 


Apple Assembly Line....September, 1981....Copyright (C) s-c SOFTWARE....Page 3 


How Does It Work? 


Line 1110 sets the origin to $0300. If you already have something 
else in page 3, you can change the origin to whatever suits your 
fancy. Just remember to set the correct values for HIMEM and 
LOMEM to protect it from Applesoft, and vice versa. 


Lines 1380-1440 install the ampersand vector. If you BRUN the 
program, this code is executed. If you BLOAD it, then CALL 768 
will execute it. You only have to execute this once in your 
program. Once done, any occurrence of an ampersand statement in 
your program will branch to INPUT.FIELD, at line 1460. 


Lines 1460-1500 check for the keyword "INPUT", and a string 
variable name. The three routines (and others used in this 
program) starting with "AS." are in the Applesoft ROMs. AS.SYNCHR 
compares the current character with what is in the A-register; if 
different you get SYNTAX ERROR, and if the same the character 
pointer is advanced. AS.PTRGET scans a variable name and finds 
its descriptor in memory. AS.CHKSTR makes sure that the variable 
is a string (if not you get TYPE MISMATCH). At this point the 
address of the string descriptor is in $83,84. The address in 
$83,84 points to 3 bytes which tell the length and address of the 
string's contents. 


Lines 1520-1690 test the input character and branch accordingly. 
I use MON.RDKEY to read the character, which means that the data 
could come from any I/O slot as well as the normal Apple Keyboard. 
You could add more tests here, or remove some. If it is a 
printing character, we fall into lines 1730-1810 to store the 
character in the input buffer and on the screen. If the filed is 
now full, line 1810 jumps to the routine which passes the data to 
Applesoft. Note that characters stored in the input buffer have 
the high-bit equal to zero (Applesoft likes them that way). 
Characters written on the screen have the high-bit set to one, so 
that they print in NORMAL video. 


Lines 1920-1990 handle the backspace character. If you are at the 
beginning of a field, the routine will return with an exit code of 
3. Otherwise, the current character will be replace on the screen 
with an underline character, and the cursor will be backed up. 


Lines 2030-2050 handle the right arrow. Normally this just copies 
over a character on the screen. Characters are picked up from the 
screen image, and the treated just as though they came from the 
keyboard. Note that the right arrow will not advance over an 
underline character. 


Lines 2090-2140 handle ESCAPE. As I mentioned earlier, ESCAPE is 
ignored unless it is typed when the cursor is at the beginning of 
the field, and the field code is non-zero. This is the only use 
for the field code in the input routine presented here, but you 
might think of many more uses and make your own modifications. 
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Lines 2180-2190 make Applesoft allocate some space for the string 
in the normal string data space. Then lines 2500- -2270 set up the 
string variable's descriptor to point to this space. Lines 
2280-2310 move the string data from the input buffer up to the new 
place. This code was copied from the “Fast String Input Routine" 
in AAL #7. 


The input routine is presented here in a very simple form; I leave 
it up to you to modify it to suit your most demanding 
applications. 


1000 * —-—---—_---——— 
1010 * FIELD INPUT SUBROUTINE 
1020 * ~~ 
1030 * BY ROB W. 
1040 * BANK OF LOUISVILLE 
1050 * P. O. BOX 1101 
1066 : LOUISVILLE, KY 40201 
1080 * MODIFIED BY BOB SANDER-CEDERLOF 
1930 FOR THE "APPLE ASSEMBLY LINE 
1110 OR $300 
1120 * 
0024- 1130 MON.CH E 24 MONITOR HORIZONTAL 
0028- 1140 MON.BASL . 28 
0071- 1150 SPC.PNIR. 1,72 
0083- 1160 STR.PNIR. 3,84 
1170 * 
0OE1- 1180 CT ; 1 F 
OOE7- 190 FL oP) SE7 FIELD FIETD LENGTH ( SCALE=FL") 
OOF 1200 FLDCOD 3 9 FIELD QODE “OES ) 
O0OE0- 1210 EXITOODE . EO PEEK ___PEEK (224) 4) TO SEE SE ERET CODE 
0200- 1345 INPUT.BUFFER . BR 0200 2~C~«~*é 
03F5- 1240 AMPER . VECTOR O3F5 
FDOC- 1260 MON.RDKEY os be MONITOR CHAR INPUT 
FDED- 1270 MON.COUT Bh » 
FC10- 1280 MON.BS _—«-EQ). SFC10_—MONTTOR BA BACKSPACE 
DD6C- 1300 AS.CHKSTR . 
DECO- 1310 AS. ; 
DFE3- 1320 AS.PTRGET . 
£452- 1330 AS.GETSPA . 3 
E5E2- 1340 AS.MOVSTR  .FA) SESE2_ 5E2 
1360 $ Ser UP AMPERSAND VECTOR 
0300- A9 4C 1380 SETUP LDA #S4C MP JMP OPCODE 
0302~ F5 03 1390 STA ER.VECTOR 
0305~ A9 10 1400 IDA #INPUT.FIELD 
0307- 8D F6 03 1410 STA ER. VECTOR+t1 
030A- AQ 03 1420 LDA /INPUT.FIELD 
Oc- 8D F7 03 1430 STA ER. VECTOR+2 
030F- 6 1440 RTS 
1450 * 
1460 INPUT.FIELD 
0310- A9 84 1470 LDA #$84 "INPUT" TOKEN 
0312- 20 CO DE 1480 JSR AS.SYNCHR REQUIRE "INPUT" OR SYNTAX ERROR 
O31 0 Pe DF JSR AS.PTRGET STRING 
- DD JSR AS.CHKSTR REQUIRE STRING OR MISMATCH 
I ee ne en ie eaten eomesen anneal oeaeess 
031B- AQ 00 152 LDA #0 ZERO OUT CHARACTER COUNT 
031D- 85 El 1530 STA CT 
031F- 20 OC FD 1540 .1 JSR MON .RDKEY GET CTER 
0322- 29 7F 1550 .2 AND #S/F APPLESOFT STYLE 
.0324— C9 06 1560 CMP #S$06 CONTROL-F? 
b358- fo 6G Ctege Be isoa 40 RECKSPACE? 
032A- FO 30 1590 BEQ . 
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032C- C9 OD 
032E- FO 53 


alo) 
WO) 
~~] 
NO 
! 
w 
-— 


Sad 4 


03 


E4 


E5 


1600 CMP #S0D RETURN? 
1610 BEO . YES, END OF FIELD 
1620 CMP #S15 RIGHT ARROW? 
1630 8 : YES 
1640 i51B ESCAPE? 
1650 BEO . YES 
1660 CMP #20 OTHER CONTROL CHARACTER? 
1670 BCC , YES, IGNORE IT 
1680 CMP iss PRINTING CHARACTER? 
1690 , BCS . NO, IGNORE IT 
1710 * GOT PRINTING CHARACTER - STORE IT 
1428 LDY CHARACTER COUNTER 
} 40 STA i .BUFFER,Y STORE IN STRING 
5 ORA #88 TURN ON HIGH BIT 
176 JSR MON. NI CHARACTER 
1488 ENS Sf saosin abpininiaiemnanactal ia 
1790 CMP FL IS FIELD FILLED UP? 
1800 BNE .1 NO, GET ANOTHER CHARACTER 
1810 BEO .7 »« eALWAYS 
1820 * 
1830 * HANDLE CONTROL-F 
1850 .3 LDA CT ON FIRST CHARACTER? 
1860 1 NO, GET ANOTHER CHARACTER 
1870 IDA $2 EXIT CODE = 2 
1880 8 io 
1890 * 
1900 * HANDLE BACKSPACE 
1338 4 LDA #3 EXIT CODE = 3 IF IN 1ST CHAR 
1930 DEC CT DECREMENT CHARACTER COUNTER 
1940 EMI .8 ON FIRST POSITION 
1950 JSR MON.BS BACKSPACE 
1960 LDA # UNDERLINE 
1970 JSR MON .COUT IT 
1980 JSR MON.BS BACKSPACE AGAIN 
1990 UMP .1 N 
2000 * 
5000 see 
2030 .5 MON.CH YES, GET NEXT CHARACTER FROM SCREEN 
2040 LDA (MON.BASL) ,Y 
2050 JMP .2 
2060 * 
50RD See 
2090 .6 LDA FLDCOD FIELD CODE = 0? 
2100 BED .1 YES, GET CHARACTER 
2110 IDA CT 
2120 BNE .1 NO, GET ANOTHER CHARACTER 
2130 LDA #1 EX{T CODE = 1 
i rr Se 
2160 * STORE THE I DATA IN THE NG 
2180 .7 LDA CT STRING LENGTH 
2190 JSR AS.GETSPA GET SPACE IN STRING AREA 
2200 LDY # MOVE DATA INTO VARIABLE 
2210 STA (STR.PNIR) ,Y 
2220 LDA SPC.PNIR 
2230 INY 
2240 STA {STR PNR) /Y LO-BYTE OF ADDRESS 
2250 LDA SPC.PNIR+ 
2260 INY 
2270 STA {STR.PNIR) Y HI-BYTE OF ADDRESS 
2280 LDX #INPUT. BUFFER 
2290 LDY /INPUT.BUF 
2300 A CT 
2310 JSR AS.MOVSTR 
2320 #0 EXIT CODE = 0 
2330 .8 STA E 
2340 RTS 
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Here is a brief sample showing how you might use the input routine 
to fill in five fields: 


10 PRINT CHRS (4)"BRUN ra aaa 

20 DIM V(5),H(5),L(5) -TS(5) ,A$ ( 

30 FOR I = 1 TO 5: READ V(I),H(I),L(1I),TS$(1I): NEXT 

40 DATA 5,7,30,NAME 

50 DATA 7,7,3,AGE 

60 DATA 7,27,3,WEIGHT 

70 DATA 9,7,12,STATE 

80 DATA 9,27,5,2IP 

90 TEXT : HOME : VTAB 23: INVERSE : PRINT " TYPE CTRL-F WHEN FOR 
M FINISHED ": NORMAL 

100 FOR I = 1 TO 5: VTAB V(I): HTAB H(I) - LEN (T$(I)) - 1: PRINT 
TS(I)" "ss: FOR J = 1 TO L(I): PRINT CHRS (95);: NEXT : NEXT 


110 Ir =1 
120 VTAB V(I): HTAB H(I): SCALE= L(I): ROT= 0 
130 & INPUT AS$(I):XC = PEEK (224) 
140 ON xc + 1 GOTO 200,300,400,500 
200 IT = 1I+1: IF I > 5 THEN 110 
210 GOTO 120 
300 END : REM ESCAPE 
REM CONTROL-F 
410 HOME : FOR I = 1 TO 5: PRINT AS(I): NEXT : END 
500 REM BACKSPACE 
510 IT = I - 1: IF I = O THEN I = 5 
520 GOTO 120 


APPLE MUSIC SYNTHESIZER BREAKTHROUGH 


e COMPLETE 16 VOICE MUSIC SYNTHESIZER ON ONE CARD, JUST PLUG IT INTO YOUR APPLE, CONNECT THE 


AUDIO CABLE (SUPPLIED) TO YOUR STEREO AND BOOT THE SUPPLIED DISK AND YOU'RE READY TO ENTER 
AND PLAY SONGS. 


*IT'S EASY TO PROGRAM MUSIC WITH OUR "COMPOSE" SOFTWARE. YOU'LL START RIGHT AWAY AT 
INPUTTING YOUR FAVORITE SONGS. OUR MANUAL SHOWS YOU HOW, STEP BY STEP. THE HI-RES SCREEN 
SHOWS WHAT YOU'VE ENTERED IN STANDARD SHEET MUSIC FORMAT. 


e WE GIVE YOU LOTS OF SOFTWARE. IN ADDITION TO “COMPOSE” AND PLAY PROGRAMS, THE DISK IS FULL 
OF SONGS READY TO RUN. 


¢ FOUR WHITE NOISE GENERATORS (GREAT FOR SOUND EFFECTS). 
* PLAYS MUSIC IN TRUE STEREO AS WELL AS TRUE DISCREET QUADRAPHONIC. 
*« ENVELOPE CONTROL (VOLUME) 


e WILL PLAY SONGS WRITTEN FOR ALF SYNTHESIZER (ALF SOFTWARE WILL NOT TAKE ADVANTAGE OF ALL 
THE FEATURES OF THIS BOARD, THEIR SOFTWARE SOUNDS THE SAME ON OUR SYNTHESIZER). 
¢ AUTOMATIC SHUTOFF ON POWER-UP, OR IF RESET IS PUSHED. 


e MANY, MANY MORE FEATURES. 


RGROEAS SHDOERIEAME DAY MASTER CHARGE & VISA WELCOME 
SEND $159.00 CHECK OR MONEY ORDER : 


(TEXAS RESIDENTS ADO 5% SALES TAX) -<~) 
P.O. BOX 470301 “14: 
DALLAS, TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 
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CHRGET and CHRGOT in Applesoft 


On pages 13 and 14 of the September 1981 Kilobaud Microcomputing 
(Robert Baker's Pet-Pourri column) there is a good description of 
the CHRGET/CHRGOT duo. These two subroutines (really two entry 
points into one routine) seem to be common to the Microsoft 
Basics, at least the 6502 versions. 


What are they? When Applesoft initializes itself one of the tasks 
is to copy a short subroutine into page zero, from $00Bl1 through 
$00C8. There is no difference between the PET and the Apple 
versions, except that the PET version is copied into $0070-0087. 
Here is the code: 


1000 *—————__-_—_________------___-_-_-___- 
1019 : APPLESOFT CHRGET/CHRGOT SUBROUTINES 
1930 . .OR $00B1 

00B8- 1950 TXTPTR .BQ $B8 INSIDE 'LDA' INSTRUCTION 

Bl- E6 B 1070 CHRGET INC TXTPTR INCREMENT ADDRESS OF NEXT CHARACTER 

peBs- BB 5S 1848 CiRcoe 

O0B5- E6 B9 1990 : INC TXTPTR+1 

OOB7- AD 88 88 1100 CHRGOT LDA ; 888 PICK UP THE NEXT CHARACTER 

OOBA- C9 3A.—«i1:110 CMP #S3A TEST IF COLON 

OOBC- FO OA ~—s1:20 BEQ . YES, Z AND C SET, RETURN 

ae an eee 

00C2- BS 150 DIGIT TEST 

00C3- E9 30 1160 SBC #$30 

00C5- 38 1170 SEC SET Z IF VALUE WAS $00 (EOL TOKEN) 

Oc - ES DO 1180 2 SBC #SD0 AND CLEAR CARRY IF DIGIT ($30-39) 


Almost every time Applesoft wants to look at a character from your 
program or even from the input buffer, it does so by calling this 
subroutine. The CHRGET entry increments the address used to pick 
up the next character, and then falls into CHRGOT. In either 
case, the character is picked up and several tests are performed. 
Blanks are passed over, ignored. Colon (end of statement) and $00 
(end of line) set the Z status bit. Digits clear CARRY, 
non-digits set CARRY. The calling program can use these status 
bits. For example: 


JSR CHRGET 
BEQ END BRANCH IF COLON OR END-OF-LINE 
BCC DIGIT BRANCH IF CHAR IS DIGIT (0-9) 


The article in Kilobaud suggests patching this routine at $00BA to 
jump to your own code. Your program can trap certain characters 
for special functions, in much the same way as the "&" is now 
handled by Applesoft. You just have to be sure that you execute 
the instructions your JMP overlayed before returning to the 
remainder of CHRGET. It appears that many of the enhancement 
packages available for PET Basic use this scheme, 
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Why use this patching scheme instead of the "&" for special 
functions? Because your special functions can be made to appear 
an integral part of the language, without the telltale ampersand. 
Because even special codes inside expressions or other statements 
can be trapped. Because you want to encode or otherwise obfuscate 
your program for security. Because you just want to be different. 
Of course, the disadvantage is that the entire operation of 
Applesoft is slowed down by the amount of time your extra testing 
takes, since every character retrieved by the interpreter will go 
through your routine as well as the standard CHRGET. 


1000 * --——~ 

194 . SAMPLE APPLESOFT FILTER PROGRAM 

1030 .OR SBA 
OOBA- 4C 00 03 1040 SMP FILTER 

1050 *————_---—_—— 

1060 .OR $300 
0300- C9 23 1070 FILTER CMP "4 CHECK FOR "#" CHARACTER 
0302- DO 06 —«-1080 NO, PASS UNMOLESTED 
0304- 20 12 03 1090 JSR WHATEVER. YOU.WANT 
307- 4C Bl 00 1100 JMP SBl 
030A- CS 3A 1139 a CMP S3A CHECK FOR COLON 
O30C- BO 03 1120 BCS 2. YES, RETURN JUST, CHRGET WOULD 
page rt 1428 2 ws : 


° 
* 


gig 2p a2 wo 108 STROH pun peu 


_ 
_~ 
ui 
jm] 


Here is a sample patch program, just show how it is done. Any 
time the patch discovers a "#" character, it will ring the Apple's 
bell. The sample Bt abide lines show what I mean. If you want 
to try out the patch, assemble it and then call Applesoft. Then 
get to the monitor and patch CHRGET like this: 


JCALL -151_ 
*BA:4C 00 03 
*3D0G 


Then enter some Applesoft lines with embedded "#" characters, and 
RUN. 


If you think of some really practical ways to 
. us 
this, let me know about then. : e Parner Like 
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Decision 


Decision Systems 
i P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


DIS~ASSEMBLER. 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 

$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISAM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$60 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE.... CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$35. Disk, Applesoft (48K, ROM or Language Card). 


FORM.-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Appiesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft’'s CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$26 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$16 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


*Apple Il is a registered trademark of the Apple Computer Co. 


Page 10....Apple Assembly Line....September, 1981....Copyright (C) S-C SOFTWARE 


Leaving the S-C Assembler II 


How do you get out of the assembler? I suppose I could have made 
a QUIT or EXIT command, but I didn't. If you want to go to 
Applesoft or Integer BASIC, type FP or INT. You will then be 
instantly in the version of Basic you wanted. However, you will 
still be hooked into the Assembler's output subroutine. If you 
load a small program and LIST it, you will find that tapping the 
space bar will stop the listing and restart it, just as inside the 
assembler, Notice I said a "small" program; a large program might 
over-write part of the assembler, causing the computer to hang up. 


What you must do is type FP or INT, and then PR¢0. The PR#¢0 
unhooks the assembler output routine, and you are free, 


Now, if you are sure that you have not over-written the assembler 
with your Applesoft or Integer BASIC program, and you want to 
return to the assembler, you can do go by typing CALL 4096. I use 
this for going back and forth rapidly when I am testing é-routines 
and the like. 


What if you want to leave the assembler to go to the monitor? 
First of all, remember that you can use all of the monitor 
commands without ever leaving the assembler, by typing a dollar 
sign and then the monitor command. But if you really want out, 
how do you get there? If you have an old monitor ROM (not 
AUTOSTART), hitting RESET will get you to the monitor, With the 
Autostart ROM, you can type SFF59G or SFF69G. The first will 
unhook DOS, while the second will leave DOS hooked in. (The 
second is the same as the Basic command CALL-151.) Still another 
way is to patch the Autostart ROM RESET vector at S$3F2 (type 
"$3F2:69 FF 5A"), go that RESET enters the monitor. 


And how do you get back to the assembler from the monitor, without 
disturbing or losing your source code? Simply type “1003G" and 
you will be there. If you type "1000G" you will also get to the 
assembler, but all your source code will be gone, just as though 
you had typed the "NEW" command, 
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A New, Fancier .AS Directive 


Many times I write text printing loops that depend on the sign bit 
of each byte to indicate the end of text. I might set up the text 
this way: 


-AS /THIS IS THE TEXT I WANT TO PRIN 
-AS -/T/ 


This assembles with the sign bits off (0) on all the characters of 
the text except the last one. I can terminate my printing loop by 
testing that bit. A little later, I will show you an example of 
just such a loop. 


But when there are many messages, I get tired of using separate 
lines for the last character of each message! Why not have an 
assembler directive which automatically sets the sign bit of the 
last character the opposite of the sign bits of the rest of the 
message? Since Version 4.0 of the S-C Assembler II has a .US 
directive for me, the user, tO program.... 


The only problem is that how to program for the .US directive has 
never been revealed. Until now. 


The following little program will implement just the directive I 
want, and install it as the .US directive. It uses five programs 
inside the assembler (see lines 1100-1140). The code is patterned 
directly after the code for the .AS directive, which starts at 
$203C in most copies of Version 4.0. 


NOTE: You should check your assembler to make sure that 
the four bytes starting at $203C are "AO 00 84 04"; if 
they are, you can use the same addresses for the five 
routines as I have shown here. (If not, send me your 
Original Version 4.0 disk for a free update. Be sure to 
adequately protect the disk for shipping, because your 
new copy will come back on the same disk.) 


Line 1000 sets the origin of the code to SOF00. You could use 
some other origin, like $0300, if you wish. Just be sure it is an 
area of memory that you will not be using for some other purpose 
wile you are assembling. Line 1010 directs the object code to a 
BRUNnable file named B.US.DIRECTIVE. 


The code from 1160 to 1210 is executed when you BRUN 
B.US.DIRECTIVE. It stores the address of DIR.US in the .US vector 
at the beginning of the assembler. You can read a little about 
this on page 15 of the Version 4.0 update manual. 


Lines 1030-1050 define a few variables. WBUF is the line buffer 
the assembler uses, starting at $0200. The assembler unpacks a 
line from the source code into this buffer, and then proceeds to 
analyze it. DLIM and HIBIT are temporary locations in page zero 
where I will save the delimiter character and the high-bit 
setting. 
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The meat of the directive is in lines 1230-1510. If you 
Gisassemble the code at $203C in the S-C Assembler II, you will 
see a marked similarity here. You might also try disassembling 
the code for the GNNB and GNC subroutines. 


GNC retrieves the next character from WBUF and increments the 
pointer. The character is tested. Carry status is set if the 
end-of-line token was picked up. Equal status is set if a blank 
or end-of-line token was picked up. GNNB calls on GNC until a 
non-blank character is found. GNC returns with the character in 
the A-register, and the pointer to the next character in the 
Y-register. 


Lines 1240-1310 scan from the end of the opcode field to try to 
find the delimiter. If no non-blank character is found after the 
opcode field, you will get the "BAD ADDRESS ERROR". If a minus 
Sign is found, $80 is stored in HIBIT instead of $00. This value 
will be merged with every character between the delimiters, to set 
or Clear the high-bit of each byte. When the delimiter is found, 
it is stored in DLIM. 


Lines 1320-1350 check to make sure that there are some characters 
after the delimiter before the next occurrence of the delimiter. 
For example, if you write ".US //", I want to assemble no bytes 
and go on. If I find the end-of-line token, you will get the 
error message. 


DISASM (2.1) - An Invetcicent 2-Pass DisassempBcer For tHe APPLE JI anp APPLE JI Prius 
1S AN INVALUABLE AID FOR UNDERSTANDING AND MODIFYING MACHINE LANGUAGE PROGRAMS 


NEW! 


MULTIPLE FORMATTED DATA/ADDRESS TABLES MAY BE INTERMIXED WITH INSTRUCTIONS 


Pius ALL THe STANDARD FEATURES 


SELECTABLE OUTPUT FORMATS ARE DIRECTLY COMPATABLE WITH DOS TOOLKIT, LISA anp S-C (4.0) AssempLers 
NO RESTRICTION ON DISASSEMBLED BLOCK LENGTH (OTHER THAN RAM oR ASSEMBLER LIMITATIONS) 


CORRECTLY DISASSEMBLES DISPLACED OBJECT CODE (Tue PROGRAM BEING DISASSEMBLED DOESN'T HAVE TO 
RESIDE IN THE MEMORY SPACE IN WHICH IT EXECUTES 


USER DEFINED LABEL NAME TABLE REPLACES ARBITRARY LABEL ASSIGNMENTS (EXTERNAL, PAGE ZERO AND EVEN 
INTERNAL LABELS BECOME MORE MEANINGFUL, E.G. JSR CROUT, LDA WNDTOP - USE OF TABLE IS OPTIONALS 


MONITOR ROM LABEL NAME TABLE 18 INCLUDED WITH OVER 100 OF THE MOST COMMONLY USED SUBROUTINE 
LABELS (LABEL TABLE SOURCE ALSO PROVIDED SO YOU CAN EXTEND AND CUSTOMIZE IT TO YOU OWN NEEDS) 


e 100% MACHINE LANGUAGE FOR FAST OPERATION © AUTO-PROMPTING FOR EASY USE e LABELS AUTOMATICALLY 
ASSIGNED AS PG ZERO, EXTERNAL AND INTERNAL e LABELS AND ADDRESSES ARE SORTED FOR USER CONVENIENCE 


@ EQUATE DEFINITIONS GENERATED FOR PG ZERO AND EXTERNAL REFERENCES © AUTO SOURCE SEGMENTATION FOR 
EASIER READING AND UNDERSTANDING AND MORE! 


DISASM (2.1) Program Diskette & User Manuac: $ 30.22 (postace paiD) 
UPGRADE KIT FOR PREVIOUS PURCHASERS OF DISASM: $ 12.50 


RAK-WARE 
4) Raven Roap 
West Orance NJ 07052 


app $3.29 cor sHipmenT ouTS IDE USA 
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Lines 1360-1430 are a loop to output the bytes one by one. I have 
to look ahead to see if the next character is the delimiter again. 
If not, then I will output the current character (by now accessed 
with "LDA WBUF-2,Y", because Y has been advanced). If the next 
one is the delimiter, then the current one is the last character 
of the string; I will have to go to ".3", to handle the last 
character. 


Lines 1450-1490 handle the last character of the string between 
the delimiters. The high-bit is first set just like all the rest 
of the bytes at line 1460, and then reversed with the EOR #$80 at 
line 1470. 


There is no end to the detail we could get into by describing how 
EMIT, CMNT, and ERBA work. I will leave them for you to puzzle 
over at your leisure. (Can't give away the whole plot in chapter 
1!) 


1000 -OR 00 
1019 : .US . DIRECTIVE 
we eB 
004- 1050 HIBIT : 
1060 *——_—_—_____-____-_________-—_ 
1070 * ‘THE FOLLOWING VALUES ARE FOR VERSION 4.0 
1980 * OF S-C ASSEMBLER II (DISK) 
1283- 1100 GNNB. .EQ $1283 GET NEXT NON-BLANK CHAR 
128B- 1110 GNC.— «CE® $128B ~—Ss GET. NEXT CHAR 
18 E- 1120 cunr ; 1885 FINISH THE LINE 
1932- 1130 ERBA ; 1 ERROR: BAD ADDRESS 
19FA- 1140 EMIT .&) $19FA EMIT A BYTE OF OBJECT CODE 
1160 
OFOO- AS OB 115} te DIR.US STORE ADDRESS IN .US VECTOR 
CFOS BB OF 1” t186 PDA SOURCUS DEGKVERSION OS LT VER 
OFO7- 8D OE 10 1200 STA S100E : 
OFOA- 60 1210 ; 
1220 * 
OFOB- AO 00 1330 Pee LDY #0 START WITH HI-BIT EQUAL TO ZERO 
= - Z 
OF 404 1250 .1 STY HIBIT SET HI-BIT ZERO. OR 0 Ro ONE 
OFOF- 20 83 12 1260 JSR GNNB GET NEXT BLANK AFTER OPCODE 
OF12- BO 32 1270 BC END OF LINE IS 
OF14- AO 80 1280 EDY $380 WE NEED HI-BIT OF ONE 
OF 16- 9 CHECK FOR MINUS SIGN 
OF18- FO F3 1300 ; , WE NEED HI-BIT OF 
OFLA BS DA . 1319 ST DLIM NOT MINUS MUST BE DELIMITER 
FIF- BO BB 1348 BCS ERBA2 END OF LINE IS BAD NEWS 
O0F21- C5 DA ~—«- 1340 CMP DLIM SEE IF DELIMITER ALREADY 
OF23- FO IE ‘1350 BEQ 4 YES, NO STRING IN BETWEEN 
OF25- 20 BB 12 1360 2 JSR GNC GET NEXT CHARACTER 
OF28- BO IC 7 S F LINE IS BAD NEWS 
OF2A- C5 DA _—-:1380 CMP DLIM SEE IF DELIMITER YET 
O0F2C- FO 0B _—«:1390 3 YES, FINISH UP AND 
OF2E- B9 FE 01 1400 ~2,Y NO, GET PREVIOUS CHAR 
OF31- 05 04  ~+=«1410 ORA HIBIT MERGE SELECTED HI-BIT 
0F33- 20 FA 19 1420 EM EMIT THE OBJECT CODE 
OF36- 4C 25 OF 1430 . i: GO FOR ONE 
OF39- B9 FE 01 1450 .3 ~2,Y GET PREVIOUS C 
OF3C- 05 04  +=«1460 ORA HIBIT MERGE SE I- 
OF3E- 49 80 1470 EOR #S$80 TOGGLE HI-BIT SINCE LAST CHAR 
OF40- 20 FA 19 1480 JSR EMIT EMIT OBJ 
OF43- 4C 8E 18 1490 4 FINISH PROCESSING THE LINE 
1510 


OF46- 4C 32 19 
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The following program shows how I might use the new .US directive 
I have just built. It prints the line of text from line 1230 ten 
times on the screen. The .US directive assures that I can tell 
when I am at the end of the text string by looking at the sign 
bit. That is just what the BMI opcode at line 1110 is doing. 
Lines 1070, 1080, 1190, and 1200 are the looping code to make ten 
copies of the line. Lines 1090-1150 print the message except for 
the last character; lines 1170-1180 print that last character and 
a carriage return. 


S(O Se 

1010 * DEMONSTRATE USE OF .US DIRECTIVE 
FDED~ 1030 MoN.coUr «Bp SED 
FD8E- 1040 MON-CROUT_° 8E 

1060 DEMO.US 
os00- a9 oad LDA #10 DO 10 LINES 
0802- 8D 20 08 1080 STA LINE.COUNT 
CBee Ae 88 on 1880 kt TT Y GET CHAR FROM TEXT STRING 
OBOA- 30 a8 1130 Ona i ai MAKE NORMAL VIDEO 
O80E- 20 ED FD 1130 ORA E580 
oat} CB 1149 INY NEXT CHARACTER 

-DOF3 1150, BNE .1 s eALWAYS 

0814-20 ED ED 1158 “> gsr MON.cOUT 
0817~ 20 BE FD 1180 ISR MON, 
O81a- CE 20 08 1190 DEC LINE COUNT 
O81D~ DO £6 1200 BNE 3 
O81E- 60 1210 RTS 

1530 TEXT .US /THIS IS MY MESSAGE/ 
0820- 1240 LINE.COONT .BS I 


APPLE 8-BIT 8-CHANNEL A/D SYSTEM 


> 8-BIT RESOLUTION >» ELIMINATES NEED TO WAIT FOR A/D CON: 
VERSION 

» ON BOARD MEMORY- > AID PROCESS TOTALLY TRANSPARENT 
(Just peek at data) TO APPLE. 

» FAST CONVERSION - > FULL SCALE INPUTS CAN EASILY BE 


(.078 ms per channel). CHANGED BY USER. 


APPLIED ENGINEERING’S A/D board is a breakthrough product for all APPLE owners 
giving real world data at a really affordable price. Diverse applications include monitoring 


ieee TEMPERATURE......HUMIDITY...... WIND SPEED...... WIND DIRECTION.... 
ee urteds oh LIGHT INTENSITY.......PRESSURE.......RPM.......SOIL MOISTURE...... 
spaibelolncee daauteelanwenceantes AND MANY MORE ......0 ee 


CONTRIGUTED PROGRAMS ARE DISTRIBUTED FREE TO ALL A/D OWNERS IN OUR NEWSLETTER. 


S d | t t MASTER CHARGE & VISA WELCOME 
ee your deaier or contact - eee 
APPLIED ENGINEERING 99 (214) 492-2027 (SB) 


P.O. BOX 470301 \ 7:00 AM - 11:00 PM 7 DAYS A WEEK 
DALLAS, TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 
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Commented Listing of DOS 3.3 RWTS 


Last March I started out this series of DOS listings with the RWTS 
portion of DOS 3.2.1. Since then I have printed all of DOS 3.2.1 
and DOS 3.3 from $B800 thru SBFFF, except for DOS 3.3 RWTS. 
Somehow it almost was overlooked, but here it is now. 


There are minor differences between the two versions of RWTS, 
which you can find by comparing the listing from the March 1981 
issue of AAL and this one. The differences start at line 1810. I 
suppose the changes are meant to be improvements, but most of them 
seem to make very little difference. 


One critical major difference: DOS 3.2.1 and previous versions 
use sector numbers which are actually written in the headers. DOS 
3.3 uses two different sets of sector numbers: physical and 
logical. The physical sector numbers are recorded in the sector 
header blocks; logical sector numbers are used in RWTS calls and 
File Manager calls. The translation is performed using the table 
at line 4280, which I have called the PHYSICAL.SECTOR.VECTOR. 

This table is accessed at line 3310: the logical sector number is 
in the Y-register, and indexes into the physical sector vector to 
pick up a physical sector number. 


1000 * ee 
1010 * DOS 3.3 DISASSEMBLY  SBDO00-B 
1020 ‘ BOB SANDER-CEDERLOF 3-3- 
0478- 1040 CURRENT. TRACK .EQ $478 
0478- 1050 DRIVE. 1. EX) $478 THRU 47F (INDEX BY SLOT 
O4F8- 1060 DRIVE. 2. TRACK 7EX) S468 THRU 4FF (INDEX BY SIOT 
04F8- 1070 SEARCH. EO) S4F8 
0578- 1080 RETRY COUNT "EO $578 
05F8- 1090 SLOT “Ee S5FB 
06F8- 1100 SEEK .COUNT EX) S6F8 
c080- 138 PHASE OFF “EQ $C080 
CO81- 1130 PHASE. : O81 
COBB 114 MOTOR. OFF : g 
&8 - 1428 ENABRE- DRIVE. 1 : $82 
CO8B- 1170 E. : : O88 
CO8C- 1180 O61, : 8C 
CO8D- 1190 66H : 08D 
CO8E- 1200 O7L : O8E 
CO8F- 1210 O7H : O8F 
002p- 1330. SECTOR 2D 
002A- 1348 TRACK axe 2A 
002F- 1250 VOLUME "EO $2F 
8 E- $40 BUF .P : 3G" 3D 
0046- 1290 MOTOR. TIME “ER 46,47 
0048- 1300 IOB.PNIR — -EX) $48,49 
B800- 1338 PRE .NYBBLE ; 800 
B82A- 1330 WRITE. SECTOR 82A 
8DC- 1340 .SECTOR 8DC 
BaAa- 1328 »ADDRESS E 94 
BaC2- 60 POST :NYBBLE EO SBac 
BOAO- 1370 SEEK.TRACK.ABSOLUTE [E06 SB9AO 
00- 1380 DELAY . LOOP 00 
ae ca me 
0040- 1420 ERR.RAD.DRIVE aoe 0 
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4 .OR SBD00 
1450 : "TA $800 
BDOO- 84 48 1470 RWIS  STY IOB.PNTR SAVE ADDRESS OF IOB 
BD02- 85 49 1480 STA IOB.PNIR+ 
BD04- AO 02 ~_—sOXd490 LDY #2 
06- 8C F8 06 1500 STY SEEK.COUNT UP TO 2 RE-CALIBRATIONS 
BDO9- AO 04 —s:1510 LDY #4 
BDOB- 8C F8 04 1520 STY SEARCH .COUNT 
BDOE- AO 01] 1530 Lpy #1 POINT AT SLOT# IN I 
BD1O- Bl 48 154 LDA = PNIR),Y SLOT# FOR IS) OPERATION 
BD12- 1550 TAX 
BD13- AO OF = 1560 LDY # POINT AT PREVIOUS SLOT# 
BD15- Dl 48 1570 CMP TB PNTR Y SAME SLOT? 
BD17- FO 1B 1580 BEQ 3 
BD19- 8A 1590 SAVE NEW SLOT ON STACK 
BDIA- 48 1600 PHA 
BDIB- Bl 48 1610 LDA (IOB.PNIR) ,Y GET OLD SLOT# 
BD1D- 1620 TAX 
BDIE- 68 1630 PLA STORE NEW # 
BDIF- 48 16 PHA INTO OLD SLOT# SPOT 
BD20- 91 48 1650 2 STA (I0B.PNIR) ,Y 
1970 * SEE IF OLD MOTOR STILL SPINNING 
BD22- BD 8E CO 1690 LDA O7L rx 
BD25- AO 08 1700 .21 LDY IF DATA DOES NOT CHANGE 
BD27- BD 8C CO 1710 LDA Q6L,X FOR 96 MICROSECONDS 
2A- DD &C CO 1720 .2 CMP 6L, X THEN THE DRIVE 1S SfOPPED 
BD2D- DO F6 1730 BNE WOOPS! IT CHANGED! 
ap BO F845 DEY = 2 ME EEP CHECKING 
Bb 39° ra 12 PLA GET SLOT # AGAIN 
BD33- 1770 TAX 
BD34- BD 8E CO 1796.3. DA SET UP TO READ 
E37 BD BE CO 1600 tn Be 
BD3A- AO 1810 LDY 
BD3C- BD 8C CO 1820 .31 LDA Q6L,X CURRENT DATA 
BD3F- 4 PHA 7 CYCLE DELAY 
BD40- PLA 
BD4]- 5 PHA 7 CYCLE DELAY 
BD42- 6 PLA 
BD43- 8E F8 05 1870 STX SLOT 
BD46- DD 8C CO 1880 CMP Q6L,X SEE IF DATA CHANGED 
BD49- DO 03 1890 BNE 232 YES, IT CHANGED 
BD4B- 88 1900 DEY 
BD4C- DO EE =: 1910 BNE .31 KEEP WAITING 
BD4E- 08 1920 .32 PHP SAVE ANSWER ON STACK 
BD4F- BD 89 CO 1930 LDA MOTOR.ON,X ‘TURN ON MOTOR 
BD52- AO 06 ~=1940 LDY #6 COPY POINTERS INTO PAGE ZERO 
54- Bl 45 1950 4 LDA (IOB.PNTR) ,Y 
56- 99 36 00 1960 STA DCT.PNIR-6,Y 
BD59- CB 1970 INY DET.PNTR . $3, ,3D 
BD5A- CO 0A ~— 1980 CPY #10 BUF.PNIR .E) $3E,3F 
5C- DO PG 1990 BNE 
Bebe ae sa at IDA Be PNTR) ,¥ seetisacmas 
2- 85 47 =. 2020 STA Sore ree HIGH BYTE ONLY 
BD64- AO 02 2030 LDY #2 GET DRIVE # 
6- Bl 48 204 LDA (IOB.PNTR) ,Y 
BD68- AO 10 2050 LDY #16 SEF IF SAME AS OLD DRIVE# 
BD6A- D1 48 2060 CMP (IOB.PNIR) ,Y 
~ FO 06 2070 BE ; 
E- 91 4 080 STA (I0B.PNTR),Y UPDATE OLD DRIVE # 
BD70- 28 2090 PLP SET Z 
BD71- AO 00 ~—2100 IDY #0 TO FLAG MOTOR OFF 
BD73- 08 2110 PHP 
BD74— 6A 2120 .5 ROR CHECK LSB OF DRIVE # 
BD75- 90 05 2130 BCC .6 DRIVE 2 
BD77- BD 8A CO 21 LDA ENABLE.DRIVE.1,X 
BD7A- BO 03 215 BCS e oo0 
BD7C- BD 8B CO 2160 .6 LDA ENABLE. DRIVE 
BD7F- 66 35 2170 .7 ROR DRIVE.NO SET ete BIT IF DRIVE 1 
BDB}- 28 2180 PLP WAS MOTOR PROBABLY OFF? 
BD83- DO OB 00 BNE .9 NO, DEFINITELY ON 
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2210 * ——---—~-——--—--- 
2220 * DELAY FROM 150 TO 180 MILLI SECONDS 
2230 * DEPENDING ON WHAT GARBAGE IS A-REG 
BD85- AO 07 ~—s-. 2250 LDY #7 YES, WAIT A WHILE 
BD87- 20 00 BA 2260 .8 JSR DELAY .LOOP 
BD8A- 88 2270 DEY BUT IT WORKS ANYWAY.... 
BD8B- DO FA _ 2280 BNE .8 
BD8D- AE F8 05 2290 LDX SLOT RESTORE SLOT# 
BD90- AO 04 .9 Y #4 TRACK # 
BO8o- Bl 48 $348 LDA + TOB.PNTR) 7¥ 
BDO4- 2 5A BE 2330 JSR SEEK. 
BDO7—- 2 234 LP WAS MOTOR DEFINITELY ON? 
BD98- DO 1 2350 BNE PROCESS.COMMAND YES, MOTOR ON 
OA- A4 4 2360 LDY MOTOR.TIME+1] SEE IF NEED TO WAIT 
BD9C- 10 OD 3 10 : BPL PROCESS.COMMAND NO 
2390 * MOTOR WAS OFF, SO WAIT REST OF MOTOR ON TIME 
2400 * FOR APPLE DISK II, MOTOR ON TIME IS 1 SECOND. 
2410 * PART oF THIS TIME IS COUNTED DOWN WHILE SEEKING 
2420 : FOR THE TRACK. 
BD9E- AO 12 2440 .10 + Lpy #18 ABOUT 100 MICROSECONDS PER TRIP 
BDAO- 88 2450 .11 DEY 
BDAl- DO FD = 2460 BNE .11 
BDA3- F6 46 2470 INC R. TIME 
BDA5- DO F7 2480 BNE . 
BDA7- E6 47 2490 INC MOTOR. TIME+] 
BDA9- DO F3 2500 : BNE .10 
2520 * MOTOR ON AND UP TO SPEED SO LET'S 
2530 * FIND OUT WHAT THE COMMAND IS AND DO IT! 
5 PROCESS,.© 
BDAB- AO 0C 56 GET COMMAND 
BDAD- B1 48 2570 tDA thee. PNTR 
BDAF- FO 5A —-_ 2580 BEQ .8 hits COMMAND, LET'S LEAVE 
BDB1- C9 04 2590 i4 FORMAT? 
BDB3- FO 2600 BEQ YES 
BDB5- 6A 2610 SET CARRY=] IF READ, =0 IF WRITE 
BDB6- 08 2620 BHE SAVE ON STACK 
BDB7- BO 03 _—«-2630 BCS .1 
BDB9- 20 00 BS 2640 JSR PRE.NYBBL 
BDBC- AO 30 650 .1 IDY #48 UP TO 48 RETRIES 
BDBE- 8C 78 05 2660 STY RETRY. 
BDOC]- AE F8 05 2670 .2 LDX SLOT GET SLOT NUMBER AGAIN 
BDC4~ 20 44 B9 2680 JSR READ.ADDRESS 
BDC7- 90 24 2690 BCC .5 GOOD ADDRESS READ 
BDC9- CE 78 05 2700 .21 DEC RETRY. 
Bocc- 10 F3. «2710 BPL .2 KEEP TRYING 
BDCE- AD 78 04 2720 .3 LDA ; GET TRACK WE WANTED 
BDD]- 48 2730 IT 
BDD2- A9 60 274 LDA #96 PRETEND TO BE ON TRACK 96 
BDD4- 20 95 BE 2750 JSR SETUP. 
BDD7- CE F8 06 2760 DEC SEEK. 
BDDA- FO 28 2710 BEO ,6 NO MORE RE-CALIBRATES 
BDDC- A9 04 2780 IDA #4 
BDDE- 8D F8 04 2190 STA SEARCH. 
BDE]- A9 00 ~—-.2800 A #0 LOOK FOR TRACK 0 
BDE3- 20 5A BE 2810 JSR SEEK. 
BDE6- 68 2820 GET TRACK WE REALLY WANT 
BDE7- 20 5A BE 2830 4 JSR SEEK. TRACK 
BDEA- 4C 2840 : v1 
BDED- A4 2E  —s«- 2860.5 LDY $2E TRACK# IN ADDRESS HEADER 
BDEF- OC 78 04 2870 CPy ; 
BDF2- FO 1c —- 2880 BEO .10 FOUND RIGHT TRACK 
BDF4- AD 78 04 2890 LDA CURRENT . TRACK 
BDF7- 48 3900 SAVE TRACK WE REALLY WANT 
BDF8- 98 2910 TYA SET UP TRACK WE ACTUALLY FOUNG 
9- 20 95 BE 2920 JSR SETUP. TRACK 
BDFC- 68 2930 TRACK WE WANT 
FD- CE F8 04 294 DEC SEARCH.COUNT 
BEOO- DO E5 2950 BNE .4 TRY AGAIN 
BEO2- FO CA  _—- 2960 BEO .3 TRY TO RE-CALIBRATE AGAIN 


Page 18....Apple Assembly Line....September, 1981....Copyright (C) S-C SOFTWARE 


2970 
5980 
5990 
BEO4- 68 3000 
BEOS- A9 40 —-3010 
07- 2 3020 
BEO8- 4C 48 BE 3030 
3040 
3050 
3060 
BEOB- FO 39 3070 
3080 
3090 
3100 
BEOD- 4C AF BE 3110 
12 
3130 
a0 03.3480 
BED BO os osteo 
BEA 48 3170 
BEIS- AB 2F 318 
stm 
BEIB- 68 3210 
BEIC- FO 08 3220 
BEJE- C5 2P 3230 
BE20- FO 04. 324 
BE22- A9 20 —- 3250 
BE24- DO El 3260 
BE26- AD 05 3386 
BE28- Bl 48 3290 
Besa Rs Ba BF 3346 
Esb- Be B8 Br 3338 
BE30- 50 97 3330 
BE3e— 38 BS pa 3420 
E38- 08 3370 
BE39- BO BE 3380 
BE3B- 28 3390 
3C- £2 00 —«- 3400 
BEIE- 86 26 3410 
BE40- 20 C2 BS 
BEA3- AE FB 05 3439 
a ae 
3480 
48- 3490 
BE49- AO 0D —«- 3500 
AB- 91 4 510 
BE4D- BD 88 CO 3520 
BESO- 60 3530 
35.40 
BES]- 20 2h BS 355 
BE54— 9 
BEeg- f 
"3 
3610 
3620 
3630 
3640 
3650 
BESA- 48 3660 
BESB- AO 01 —«3670 
Boe PA o8e 
BE eO $0 08 3100 
Bes 4338 
aus 


Apple Assembly I.ine 


: 
AE 
é 


Ble 
i 
aI 
2 
é 
g 


3 
3 
: 


e 
ro) 
i=) 


LDY #3 GET VOLUME# WANTED 
EDA (TOB.PNIR) . 
PHA VE DESIRED VOLUME# ON STACK 
Y #14 STORE ACTUAL VOLUME NUMBER FOUND 
STA IOB.PNIR) ,Y 
ESIRED, VOLUME# AGAIN 
BED ll IF = T CARE 
VO}IME SEE 3, RIGHT VOLUME 


#ERR.WRONG. VOLUME 
BNE .7 UH OH! 


ell LDY # GET 
Tay (708. pONTE TS Y 
LDA PHYSICAL. SECTOR. 
CMP SECTOR 

BNE .21 NOT THE RIGHT SECTOR 
PLP GET COMMAND FLAG AGAIN 
BCC WRITE 


JSR READ.SECTOR 

PHP SAVE RESULT; IF BAD, WILL BE COMMAND 

BCS .21 BAD READ 

PLP 0 THROW AWAY 
26 


» NYBBLE 


WANTED 
LASICHL SECTOR NBDE) 
NIG oy SECTOR R 


LDX 
RWTS.EXIT 
: HS 24 
ERROR. HANDLER 
SE 


"BIT" TO SKIP NEXT INSTRUCTION 
INDICATE AN ERROR 
LDY #13 STORE ERROR CODE 
STA (IOB.PNIR) ,;Y 
LDA 7X 


We a er eee een 


WRITE JSR WRITE, SECTOR 

LDA K TERR WRITE PROTECT 
© HANDLER + ALWAYS 
* SEEK TRACK SUBROUTINE 
* TO SEEK 
* DRIVE NO) IS NEGATIVE IF DRIVE 1 
ae AND POSITIVE IF DRIVE 2 
SEEK . TRACK 

PHA SAVE TRACK# 

Y #] CHECK DEVICE CHARACTERISTICS TABLE 


FOR TYPE OF DISK 
IF TwO PHASES PER TRACK 


R T CARRY 
GET TRACK# N 
BCC .1 ONE PHASE PER TRACK 
TWO ER TRACK, SO DOUBLE IT 
JSR .1 FIND THE 
ae eTRACK DIVIDE IT BACK DOWN 


BE6B- 85 2A 770 . STA TRACK 
BE6D- 20 8E BE 3780 JSR GET.SLOT.IN.Y 
BE70- B9 78 04 3790 LDA DRIVE. 1. TRACK ,Y 
BE73- 24 35 3800 BIT DRIVE.NO WHICH DRIVE? 
BE75- 30 03  —=—«-3810 BMI . DRIVE 1 
BE77- B9 FB 04 3820 LDA DRIVE. 2. TRACK ,Y 
BE7A- 8D 78 04 3830 .2 STA CURRENT. TRACK WHERE WE ARE RIGHT NOW 
BE7D- AS 2A —s-: 3840 LDA TRACK | WHERE WE WANT TO BE 
BE7F- 24 35 3850 BIT DRIVE.NO WHICH DRIVE? 
BE81- 30 05 3860 BMI . DRIVE 1 
BE83- 99 F8 04 3870 STA DRIVE.2.TRACK,Y DRIVE 2 
BE86- 10 03 =. 3880 : . ALWAYS 
BE88- 99 78 04 3890 .3 STA DRIVE.1. Y 
BESB- 4C AO B9 3900 24 JMP SEEK. .ABSO 
3920 ’ CONVERT SLOT*16 TO SLOT IN Y-REG 
3940 GET.SLOT.IN.Y 
BESE- 8A 3950 TXA SLOT*16 FROM X-REG 
BEGF- 4A 3960 LSR 
BE90- 4A 3970 LSR 
BE91- 4A 3980 LSR 
BE92- 4A 3990 LSR 
BE93- A8 4000 TAY SLOT INTO Y 
BE94— 60 4010 : RTS 
4030 * SET UP CURRENT TRACK LOCATION 
4040 * IN DRIVE.1.TRACK OR DRIVE.2.TRACK VECTORS, 
4050 : INDEXED BY SLOT NUMBER. 
4070 * (A) = TRACK# TO BE SET UP 
4080 * 
4090 SETUP. TRACK 
BE95- 48 4100 PHA SAVE TRACK # WE WANT TO SET UP 
BE96- AO 02 = 4110 LDY #2 GET DRIVE NUMBER FROM IOB 
BE98- Bl 48 4120 LDA (IOB.PNIR) ,Y¥ 
BEQA~ 6B 4130 ROR SET CARRY IF DRIVE 1, CLEAR IF 2 
BESB- 66 35 = 41 ROR DRIVE.NO MAKE NEGATIVE IF 1, POSITIVE IF 2 
BE9D- 20 BE BE 4150 JSR GET.SLOT.IN.Y 
BEAO- 6 416 PLA # 
1- 0A 4170 ASL 
FA2- 24 35 4180 BIT DRIVE.NO WHICH DRIVE? 
BEA4- 30 05 = 4190 BMI .1 
BEA6- 99 F8 04 4200 STA DRIVE. 2. TRACK ,Y 
BEA9- 10 03 = 4210 BPL . ae 
BEAB- 99 78 04 4220 .1 STA DRIVE.1.TRACK,Y 
BEAE- 60 4230 .2 RTS 
4240 * 
4250 FORMAT 
BEAF 4399 : BS * 
4280 PHYSICAL SRtGoe VECIOR 
BFB8- 00 OD OB 
BFBB- 09 07 
- 03 Ol OF 
eG 8 
BFC7- OF 4290 -HS 000D0B09070503010E0C0A080604020F 
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